home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / windows / ldialogs.zip / TEST.DPR < prev    next >
Text File  |  1996-07-25  |  471b  |  30 lines
  1. program Test;
  2.  
  3. uses
  4.   Forms,
  5.   WinTypes,
  6.   WinProcs,
  7.   LDialogs,
  8.   Mainform in 'MAINFORM.PAS' {Form1};
  9.  
  10. {$R *.RES}
  11.  
  12. var
  13.   PrevInstWnd: HWnd;
  14.  
  15. begin
  16.   if hPrevInst = 0 then
  17.   begin
  18.     Application.CreateForm(TForm1, Form1);
  19.     Application.Run;
  20.   end
  21.   else
  22.   begin
  23.     PrevInstWnd := GetWindowOnTop(hPrevInst);
  24.     if IsIconic(PrevInstWnd) then
  25.       ShowWindow(PrevInstWnd, CmdShow)
  26.     else
  27.       BringWindowToTop(PrevInstWnd);
  28.   end;
  29. end.
  30.